home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
EGAVGA.SWG
/
0056_43-50 Line Mode.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-08-27
|
772b
|
22 lines
{
> HELP!!! I cannot figure out how to throw Borland's Turbo Pascal
> v4.0 into VGA 50linesx80columns mode!
You just have to use the Textmode procedure that is in the CRT
unit. The following is an example of how to use it.
}
PROGRAM TextMode_Demo; { June 14/93, Greg Estabrooks }
USES
CRT; { TextMode, LastMode }
VAR
SavedMode : BYTE; { Holds Initial Text mode }
BEGIN
SavedMode := LastMode; { Save Current Mode for later }
TextMode(Font8x8 + Co80); { Set to Color 43/50 line mode }
Writeln('This is 43/50 line mode!');
Readln; { Wait for user to have a look }
TextMode(SavedMode); { Restore to original textmode }
END.